home *** CD-ROM | disk | FTP | other *** search
/ Business Shareware / Business Shareware.iso / start / database / lib194 / measure.prg < prev    next >
Encoding:
Text File  |  1992-12-23  |  10.6 KB  |  333 lines
  1. *-------------------------------------------------------------------------------
  2. *-- Program...: MEASURE.PRG
  3. *-- Programmer: Ken Mayer (CIS: 71333,1030)
  4. *-- Date......: 06/25/1992
  5. *-- Notes.....: These routines handle conversion from various forms of 
  6. *--             measurement to others ... see the file: README.TXT for details
  7. *--             on the use of this library file.
  8. *-------------------------------------------------------------------------------
  9.  
  10. FUNCTION Kg2Lb
  11. *-------------------------------------------------------------------------------
  12. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  13. *-- Date........: 11/05/90
  14. *-- Notes.......: converts kilograms to pounds
  15. *-- Written for.: dBASE IV
  16. *-- Rev. History: None
  17. *-- Calls.......: None
  18. *-- Called by...: Any
  19. *-- Usage.......: Kg2Lb(<nKg>)
  20. *-- Example.....: ? Kg2Lb(40)
  21. *-- Returns.....: dBASE number
  22. *-- Parameters..: nKg -- mass in kilograms
  23. *-------------------------------------------------------------------------------
  24.  
  25.     parameters nKg
  26.     
  27. RETURN nKg / 0.45359237
  28. *--EoF: Kg2Lb()
  29.  
  30. FUNCTION Lb2Kg
  31. *-------------------------------------------------------------------------------
  32. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  33. *-- Date........: 11/05/90
  34. *-- Notes.......: converts pounds to kilograms
  35. *-- Written for.: dBASE IV
  36. *-- Rev. History: None
  37. *-- Calls.......: None
  38. *-- Called by...: Any
  39. *-- Usage.......: Lb2Kg(<nPounds>)
  40. *-- Example.....: ? Lb2Kg(66)
  41. *-- Returns.....: dBASE number
  42. *-- Parameters..: nPounds -- mass in pounds
  43. *-------------------------------------------------------------------------------
  44.  
  45.     parameters nPounds
  46.     
  47. RETURN nPounds * 0.45359237
  48. *-- EoF: Lb2Kg()
  49.  
  50. FUNCTION Inch2Cm
  51. *-------------------------------------------------------------------------------
  52. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  53. *-- Date........: 11/05/90
  54. *-- Notes.......: converts inches to centimeters
  55. *-- Written for.: dBASE IV
  56. *-- Rev. History: None
  57. *-- Calls.......: None
  58. *-- Called by...: Any
  59. *-- Usage.......: Inch2Cm(<nInches>)
  60. *-- Example.....: ? inch2cm(12)
  61. *-- Returns.....: dBASE number
  62. *-- Parameters..: nInches -- length in inches
  63. *-------------------------------------------------------------------------------
  64.  
  65.     parameters nInches
  66.     
  67. RETURN nInches * 2.54
  68. *--EoF: Inch2Cm()
  69.  
  70. FUNCTION Cm2Inch
  71. *-------------------------------------------------------------------------------
  72. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  73. *-- Date........: 11/05/90
  74. *-- Notes.......: converts centimeters to inches
  75. *-- Written for.: dBASE IV
  76. *-- Rev. History: None
  77. *-- Calls.......: None
  78. *-- Called by...: Any
  79. *-- Usage.......: Cm2Inch(<nCm>)
  80. *-- Example.....: ? cm2inch(100)
  81. *-- Returns.....: dBASE number
  82. *-- Parameters..: nCm -- length in Cm
  83. *-------------------------------------------------------------------------------
  84.  
  85.     parameters nCm
  86.     
  87. RETURN nCm / 2.54
  88. *-- EoF: Cm2Inch()
  89.  
  90. FUNCTION Km2Mile
  91. *-------------------------------------------------------------------------------
  92. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  93. *-- Date........: 03/01/92
  94. *-- Notes.......: converts kilometers to miles
  95. *-- Written for.: dBASE IV
  96. *-- Rev. History: Ver. 1.1 eliminates one multiplication
  97. *-- Calls.......: None
  98. *-- Called by...: Any
  99. *-- Usage.......: Km2Mile(<nKm>)
  100. *-- Example.....: ? km2mile(80)
  101. *-- Returns.....: dBASE number
  102. *-- Parameters..: nKm -- length in kilometers
  103. *-------------------------------------------------------------------------------
  104.  
  105.     parameters nKm
  106.     
  107. RETURN nKm / 1.609344
  108. *-- EoF: Km2Mile()
  109.  
  110. FUNCTION Mile2Km
  111. *-------------------------------------------------------------------------------
  112. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  113. *-- Date........: 03/01/92
  114. *-- Notes.......: converts Miles to Kilometers
  115. *-- Written for.: dBASE IV
  116. *-- Rev. History: Ver. 1.1 eliminates one multiplication
  117. *-- Calls.......: None
  118. *-- Called by...: Any
  119. *-- Usage.......: mile2km(<nMiles>)
  120. *-- Example.....: ? mile2km(50)
  121. *-- Returns.....: dBASE number
  122. *-- Parameters..: nMiles -- length in miles
  123. *-------------------------------------------------------------------------------
  124.  
  125.     parameters nMiles
  126.     
  127. RETURN nMiles * 1.609344
  128. *-- EoF: Mile2Km()
  129.  
  130. FUNCTION Km2Naut
  131. *-------------------------------------------------------------------------------
  132. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  133. *-- Date........: 03/01/92
  134. *-- Notes.......: converts Kilometers to Nautical Miles
  135. *-- Written for.: dBASE IV
  136. *-- Rev. History: None
  137. *-- Calls.......: None
  138. *-- Called by...: Any
  139. *-- Usage.......: Km2Naut(<nKm>)
  140. *-- Example.....: ? Km2Naut(50)
  141. *-- Returns.....: dBASE number
  142. *-- Parameters..: nKm -- length in kilometers
  143. *-------------------------------------------------------------------------------
  144.  
  145.     parameters nKm
  146.     
  147. RETURN nKm / 1.852
  148. *-- EoF: Km2Naut
  149.  
  150. FUNCTION Naut2Km
  151. *-------------------------------------------------------------------------------
  152. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  153. *-- Date........: 03/01/92
  154. *-- Notes.......: converts Nautical Miles to Kilometers
  155. *-- Written for.: dBASE IV
  156. *-- Rev. History: None
  157. *-- Calls.......: None
  158. *-- Called by...: Any
  159. *-- Usage.......: Naut2Km(<nNautMiles>)
  160. *-- Example.....: ? Naut2km(50)
  161. *-- Returns.....: dBASE number
  162. *-- Parameters..: nNautMiles -- length in miles
  163. *-------------------------------------------------------------------------------
  164.  
  165.     parameters nNautmiles
  166.     
  167. RETURN nNautmiles * 1.852
  168. *-- EoF: Naut2Km()
  169.  
  170. FUNCTION Naut2Stat
  171. *-------------------------------------------------------------------------------
  172. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  173. *-- Date........: 03/01/92
  174. *-- Notes.......: converts Nautical Miles to Statute Miles
  175. *-- Written for.: dBASE IV
  176. *-- Rev. History: None
  177. *-- Calls.......: None
  178. *-- Called by...: Any
  179. *-- Usage.......: Naut2Stat(<nNautMiles>)
  180. *-- Example.....: ? Naut2Stat(50)
  181. *-- Returns.....: dBASE number
  182. *-- Parameters..: nNautMiles -- length in miles
  183. *-------------------------------------------------------------------------------
  184.  
  185.     parameters nNautmiles
  186.     
  187. RETURN nNautmiles * 1.150779448
  188. *-- EoF: Naut2Stat()
  189.  
  190. FUNCTION Stat2Naut
  191. *-------------------------------------------------------------------------------
  192. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  193. *-- Date........: 03/01/92
  194. *-- Notes.......: converts Statute Miles to Nautical Miles
  195. *-- Written for.: dBASE IV
  196. *-- Rev. History: None
  197. *-- Calls.......: None
  198. *-- Called by...: Any
  199. *-- Usage.......: Stat2Naut(<nStatMiles>)
  200. *-- Example.....: ? Stat2Mile(50)
  201. *-- Returns.....: dBASE number
  202. *-- Parameters..: nStatMiles -- length in miles
  203. *-------------------------------------------------------------------------------
  204.  
  205.     parameters nstatmiles
  206.     
  207. RETURN nStatmiles / 1.150779448
  208. *-- EoF: Stat2Naut()
  209.  
  210. FUNCTION Fahr2Cel
  211. *-------------------------------------------------------------------------------
  212. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  213. *-- Date........: 03/01/92
  214. *-- Notes.......: converts Fahrenheit to Celsius
  215. *-- Written for.: dBASE IV
  216. *-- Rev. History: None
  217. *-- Calls.......: None
  218. *-- Called by...: Any
  219. *-- Usage.......: Fahr2Cel(<nFahrTemp>)
  220. *-- Example.....: ? Fahr2Cel(50)
  221. *-- Returns.....: dBASE number
  222. *-- Parameters..: nFahrTemp -- temperature Fahrenheit
  223. *-------------------------------------------------------------------------------
  224.  
  225.     parameters nFahrTemp
  226.     
  227. RETURN 5 * (nFahrtemp - 32 ) / 9
  228. *-- EoF: Fahr2Cel()
  229.  
  230. FUNCTION Cel2Fahr
  231. *-------------------------------------------------------------------------------
  232. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  233. *-- Date........: 03/01/92
  234. *-- Notes.......: converts Celsius to Fahrenheit 
  235. *-- Written for.: dBASE IV
  236. *-- Rev. History: None
  237. *-- Calls.......: None
  238. *-- Called by...: Any
  239. *-- Usage.......: Cel2Fahr(<nCelTemp>)
  240. *-- Example.....: ? Cel2Fahr(50)
  241. *-- Returns.....: dBASE number
  242. *-- Parameters..: nCelTemp -- temperature Celsius
  243. *-------------------------------------------------------------------------------
  244.  
  245.     parameters nCelTemp
  246.     
  247. RETURN 9 * nCelTemp / 5 + 32
  248. *-- EoF: Cel2Fahr()
  249.  
  250. FUNCTION Gal2Ltr
  251. *-------------------------------------------------------------------------------
  252. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  253. *-- Date........: 03/01/92
  254. *-- Notes.......: converts Gallons (US) to Liters
  255. *-- Written for.: dBASE IV
  256. *-- Rev. History: None
  257. *-- Calls.......: None
  258. *-- Called by...: Any
  259. *-- Usage.......: Gal2Ltr(<nGal>)
  260. *-- Example.....: ? Gal2Ltr(50)
  261. *-- Returns.....: dBASE number
  262. *-- Parameters..: nGal -- US Gallons
  263. *-------------------------------------------------------------------------------
  264.  
  265.     parameters nGal
  266.     
  267. RETURN nGal * 3.785411784
  268. *-- EoF: Gal2Ltr()
  269.  
  270. FUNCTION Ltr2Gal
  271. *-------------------------------------------------------------------------------
  272. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  273. *-- Date........: 03/01/92
  274. *-- Notes.......: converts Liters to Gallons (US) 
  275. *-- Written for.: dBASE IV
  276. *-- Rev. History: None
  277. *-- Calls.......: None
  278. *-- Called by...: Any
  279. *-- Usage.......: Ltr2Gal(<nLiter>)
  280. *-- Example.....: ? Ltr2Gal(50)
  281. *-- Returns.....: dBASE number
  282. *-- Parameters..: nLiter -- Liters
  283. *-------------------------------------------------------------------------------
  284.  
  285.     parameters nLiter
  286.     
  287. RETURN nLiter / 3.785411784
  288. *-- EoF: Ltr2Gal()
  289.  
  290. FUNCTION CuFt2Gal
  291. *-------------------------------------------------------------------------------
  292. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  293. *-- Date........: 03/01/92
  294. *-- Notes.......: converts Cubic Feet to Gallons (US) 
  295. *-- Written for.: dBASE IV
  296. *-- Rev. History: None
  297. *-- Calls.......: None
  298. *-- Called by...: Any
  299. *-- Usage.......: CuFt2Gal(<nCubic>)
  300. *-- Example.....: ? CuFt2Gal(50)
  301. *-- Returns.....: dBASE number
  302. *-- Parameters..: nCubic -- Cubic Feet
  303. *-------------------------------------------------------------------------------
  304.  
  305.     parameters nCubic
  306.     
  307. RETURN nCubic * 1728 / 231
  308. *-- EoF: CuFt2Gal()
  309.  
  310. FUNCTION Gal2CuFt
  311. *-------------------------------------------------------------------------------
  312. *-- Programmer..: Jay Parsons (CIS: 70160,340)
  313. *-- Date........: 03/01/92
  314. *-- Notes.......: converts Gallons (US) to Cubic Feet
  315. *-- Written for.: dBASE IV
  316. *-- Rev. History: None
  317. *-- Calls.......: None
  318. *-- Called by...: Any
  319. *-- Usage.......: Gal2CuFt(<nGal>)
  320. *-- Example.....: ? Gal2CuFt(50)
  321. *-- Returns.....: dBASE number
  322. *-- Parameters..: nGal -- Gallons
  323. *-------------------------------------------------------------------------------
  324.  
  325.     parameters nGal
  326.     
  327. RETURN nGal * 231 / 1728
  328. *-- EoF: Gal2CuFt()
  329.  
  330. *-------------------------------------------------------------------------------
  331. *-- EoP: MEASURE.PRG
  332. *-------------------------------------------------------------------------------
  333.